unit recordatorio;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Provider, SqlExpr, DB, DBClient, DBLocal, DBLocalS, StdCtrls,
  DBCtrls, ExtCtrls, Mask, ToolEdit, DateUtils;

type
  TfrmRecordatorio = class(TForm)
    DBMemo1: TDBMemo;
    cdsRecordatorio: TSQLClientDataSet;
    sRecordatorio: TDataSource;
    cdsRecordatorioID: TIntegerField;
    cdsRecordatorioFECHA: TSQLTimeStampField;
    cdsRecordatorioID_USUARIO: TSmallintField;
    cdsRecordatorioRECORDATORIO: TStringField;
    DBNavigator1: TDBNavigator;
    lblFechaIni: TLabel;
    edtFechaIni: TDateEdit;
    lblFechaFin: TLabel;
    edtFechaFin: TDateEdit;
    procedure cdsRecordatorioBeforeOpen(DataSet: TDataSet);
  private
    FidUsuario: word;
    procedure SetidUsuario(const Value: word);
    { Private declarations }
  published
    property idUsuario: word read FidUsuario write SetidUsuario;
  public
    constructor CreateNuevo(AOwner: TComponent; usuario: word);
  end;

var
  frmRecordatorio: TfrmRecordatorio;

implementation

uses MDatos;

{$R *.dfm}

{ TfrmRecordatorio }

constructor TfrmRecordatorio.CreateNuevo(AOwner: TComponent;
  usuario: word);
begin
  inherited Create(AOwner);
  self.idUsuario := usuario;
  self.edtFechaIni.Date := IncMonth(now, -1);
  self.edtFechaFin.Date := now;
  self.cdsRecordatorio.Open;

  self.ShowModal;
end;

procedure TfrmRecordatorio.SetidUsuario(const Value: word);
begin
  FidUsuario := Value;
end;

procedure TfrmRecordatorio.cdsRecordatorioBeforeOpen(DataSet: TDataSet);
begin
  self.cdsRecordatorio.Params[0].AsString := FormatDateTime('mm/dd/yy', StrToDate(self.edtFechaIni.EditText));
  self.cdsRecordatorio.Params[1].AsString := FormatDateTime('mm/dd/yy', incDay(StrToDate(self.edtFechaFin.EditText)));
  self.cdsRecordatorio.Params[2].AsInteger := self.idUsuario;

end;

end.
